home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g31.bas < prev    next >
BASIC Source File  |  1991-10-18  |  860b  |  32 lines
  1. 100 ' G31 T.WAKAMATSU
  2. 110 CLS:I=0
  3. 120 G(1)=1:G(2)=4:G(3)=2:G(4)=5:G(5)=3
  4. 130 FOR K=-90 TO 198 STEP 72
  5. 140   T=K/180*3.14159!:I=I+1
  6. 150   X=120*COS(T)+120:A(I)=X:C(G(I))=X+400
  7. 160   Y=120*SIN(T)+240:B(I)=Y:D(G(I))=Y
  8. 170 NEXT K
  9. 180 FOR L=1 TO 2
  10. 190   READ C1,C2:DATA 5,4,1,0
  11. 200   FOR J=0 TO 40
  12. 210     FOR I=1 TO 5
  13. 220       E(I)=(A(I)*(40-J)+C(I)*J)/40:F(I)=(B(I)*(40-J)+D(I)*J)/40
  14. 230     NEXT I
  15. 240     PSET (E(1),F(1))
  16. 250     FOR I=2 TO 5
  17. 260       LINE-(E(I),F(I)),PSET,%C1
  18. 270     NEXT I
  19. 280     LINE-(E(1),F(1)),PSET,%C1
  20. 290   NEXT J
  21. 300   FOR J=40 TO 0 STEP -1
  22. 310     FOR I=1 TO 5
  23. 320       E(I)=(A(I)*(40-J)+C(I)*J)/40:F(I)=(B(I)*(40-J)+D(I)*J)/40
  24. 330     NEXT I
  25. 340     PSET (E(1),F(1))
  26. 350     FOR I=2 TO 5 
  27. 360       LINE-(E(I),F(I)),PSET,%C2
  28. 370     NEXT I
  29. 380     LINE-(E(1),F(1)),PSET,%C2
  30. 390   NEXT J
  31. 400 NEXT L
  32.